home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / G / Get⁄SetModDate 1.0 / Get_SetModDate 1.0 / card_2839.txt < prev    next >
Encoding:
Text File  |  1992-08-19  |  3.1 KB  |  120 lines
  1. -- card: 2839 from stack: in.0
  2. -- bmap block id: 4303
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=1 top=86 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=2 top=54 right=76 bottom=114
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetModDate
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   answer file "Choose a file to examine:"
  37.   if it = "" then exit mouseup
  38.   put GetModDate(it) into modDate
  39.   convert modDate to long date and time
  40.   answer modDate
  41. end mouseUp
  42.  
  43.  
  44. -- part 16 (button)
  45. -- low flags: 00
  46. -- high flags: 2000
  47. -- rect: left=473 top=51 right=84 bottom=511
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 15664 / 15664
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Home
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   visual dissolve to black
  59.   visual dissolve to white
  60.   visual dissolve to black
  61.   visual dissolve
  62.   go home
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 17 (button)
  68. -- low flags: 00
  69. -- high flags: 4000
  70. -- rect: left=475 top=22 right=50 bottom=512
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 13510 / 13510
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Jeff
  79.  
  80.  
  81. -- part 18 (button)
  82. -- low flags: 00
  83. -- high flags: A002
  84. -- rect: left=116 top=54 right=76 bottom=228
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: SetModDate
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   put the seconds into newModDate
  96.   put newmoddate into moddate
  97.   convert moddate to long date and time
  98.   answer file "Choose a file to set Modification Date:"
  99.   if it = "" then exit mouseup
  100.   setModDate it,newModDate
  101.   answer "Modification date set to" && moddate & "."
  102. end mouseUp
  103.  
  104.  
  105. -- part contents for card part 9
  106. ----- text -----
  107. GetModDate takes one parameter, the pathname of the file to examine. It returns the time in seconds which can be converted to a date. SetModDate takes two parameters, the pathname of the file to work on, and the datetime in seconds. Click on and/or examine the scripts of the buttons above to see how they work!
  108.  
  109. A small shareware fee of $5 is requested if you use these externals for anything besides personal use.
  110.  
  111. If you have comments, questions, or suggestions, you can contact me in any of the following ways:
  112.  
  113.      America Online: J5rson                  AppleLink: ALL.AMERICAN
  114.      CompuServe:     76675,1772              GEnie:     J5rson
  115.      Internet:       j5rson@aol.com          Telephone: 616.949.0346
  116.  
  117.      U. S. Mail:           Jeff Iverson
  118.                            3841 Whispering Way Dr. SE #101
  119.                            Grand Rapids MI  49546-5849
  120.